brain<-read.csv('acc.csv',header=FALSE)[,1:3] ten_reps<-readRDS('first_ten.rds')[1:5] for (i in ten_reps){ open3d() points3d(brain) segments3d(i,lwd=2,col='red') }